COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXTERNAL BOOLEAN SIMPLE PROCEDURE XLOOKUP(INTEGER CHAN,NAME,EXT,JUNK,PPN)
C00003 ENDMK
C⊗;
EXTERNAL BOOLEAN SIMPLE PROCEDURE XLOOKUP(INTEGER CHAN,NAME,EXT,JUNK,PPN);

EXTERNAL STRING SIMPLE PROCEDURE SPS(INTEGER N) ;

EXTERNAL INTEGER SIMPLE PROCEDURE WHATIS(INTEGER ARRAY A) ;

EXTERNAL INTEGER SIMPLE PROCEDURE SWHATIS(STRING ARRAY A) ;

EXTERNAL SIMPLE PROCEDURE GOAWAY(INTEGER I) ;

EXTERNAL INTEGER SIMPLE PROCEDURE BIGGER(INTEGER PTR, HM) ;

EXTERNAL INTEGER SIMPLE PROCEDURE SBIGGER(INTEGER PTR, HM) ;

EXTERNAL INTEGER SIMPLE PROCEDURE CREATE2(INTEGER LB1, UB1, LB2, UB2) ;

EXTERNAL INTEGER SIMPLE PROCEDURE SCREATE(INTEGER LB1, UB1) ;